home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / submenu / 00228.ls < prev    next >
Encoding:
Text File  |  1995-03-29  |  806 b   |  42 lines
  1. on mouseDown
  2.   global setall, descriptions, mysound
  3.   set myclick to the clickOn
  4.   set oldset to the locV of sprite myclick
  5.   set vert to the mouseV
  6.   set mv to the mouseV
  7.   if mv < 220 then
  8.     set mv to 220
  9.   end if
  10.   if mv > 387 then
  11.     set mv to 387
  12.   end if
  13.   set aud to 0
  14.   repeat while the mouseDown
  15.     set mv to the mouseV
  16.     if mv < 220 then
  17.       set mv to 220
  18.     end if
  19.     if mv > 387 then
  20.       set mv to 387
  21.     end if
  22.     set the locV of sprite myclick to mv
  23.     setlevelbar()
  24.   end repeat
  25.   if oldset <> mv then
  26.     setlevelbar()
  27.   end if
  28.   puppetSound(0)
  29.   puppetSound(mysound)
  30.   updateStage()
  31.   if the soundBusy of 1 then
  32.     repeat while the soundBusy of 1
  33.     end repeat
  34.     puppetSound(0)
  35.   end if
  36.   if setall = 0 then
  37.     getselectedlevel()
  38.   else
  39.     setalllevels()
  40.   end if
  41. end
  42.